home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 07 - 1991 / 07.02 Feb 91 / 4th Debugger Appl / GetCalendar.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-02-15  |  840 b   |  24 lines  |  [TEXT/KAHL]
  1. /************************************************************************/
  2. /*                                                                          */
  3. /*    Source   - GetCalendar.c                                            */
  4. /*    Author   - Alexander S. Colwell, Copyright © 1990                    */
  5. /*                                                                        */
  6. /*    Purpose     - This is Calendar simulator.                                */
  7. /*                                                                        */
  8. /************************************************************************/
  9.  
  10. #include "Calendar.h"                /* Calendar defs                    */
  11.  
  12. #ifndef    ExtArea                        /* Check if debugging mode            */
  13. #undef  main                        /* Remove previous definition        */
  14. #define    main GetCalendar            /* Set debugging procedure name        */
  15. #endif
  16.  
  17. pascal void main(CCalendar **eaObject,
  18.                  short *itsMonth, short *itsYear, long *itsSelect)
  19.     {
  20.         *itsMonth = (*eaObject)->month;/* Copy calendar date/selection    */
  21.         *itsYear = (*eaObject)->year;
  22.         *itsSelect = (*eaObject)->daySelect;
  23.     }
  24.